home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
DMTDEMOS
/
SETCRDRV.DEM
< prev
next >
Wrap
Text File
|
1994-07-02
|
378b
|
22 lines
program SetCrDrv_sample;
uses crt, DMT;
var
DrvLetter : char;
begin
Color( 7, 0 );
clrscr;
write( 'Select the new current drive ( A-Z ) [ :]');
gotoxy( wherex - 3, wherey );
DrvLetter := upcase( readkey );
writeln( DrvLetter );
SetCrDrv( DrvLetter ); { Call SetCrDrv procedure }
writeln;
writeln( 'Done...');
GetEnter;
end.